﻿Imports System.ComponentModel

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Public Class ucCertificationTypeDetails
	Inherits UcBaseEditControl
	Implements IUcEditControl

#Region "Designer"
	'UserControl overrides dispose to clean up the component list.
	<System.Diagnostics.DebuggerNonUserCode()> _
	Protected Overrides Sub Dispose(ByVal disposing As Boolean)
		Try
			If disposing AndAlso components IsNot Nothing Then
				components.Dispose()
			End If
		Finally
			MyBase.Dispose(disposing)
		End Try
	End Sub

	Public Sub New()

		' This call is required by the designer.
		InitializeComponent()

		' Add any initialization after the InitializeComponent() call.

	End Sub
	Friend WithEvents DiplomaSuperTypeIdlbl As System.Windows.Forms.Label
	Friend WithEvents DiplomaSuperTypeId As org.codegen.win.controls.CGComboBox

	'Required by the Windows Form Designer
	Private components As System.ComponentModel.IContainer

	'NOTE: The following procedure is required by the Windows Form Designer
	'It can be modified using the Windows Form Designer.  
	'Do not modify it using the code editor.
	<System.Diagnostics.DebuggerStepThrough()> _
	Private Sub InitializeComponent()
		Me.components = New System.ComponentModel.Container()
		Me.CertificationTypelbl = New System.Windows.Forms.Label()
		Me.CertificationType = New org.codegen.win.controls.CGTextBox(Me.components)
		Me.DiplomaSuperTypeIdlbl = New System.Windows.Forms.Label()
		Me.DiplomaSuperTypeId = New org.codegen.win.controls.CGComboBox(Me.components)
		CType(Me.ErrProvider, System.ComponentModel.ISupportInitialize).BeginInit()
		Me.SuspendLayout()
		'
		'CertificationTypelbl
		'
		Me.CertificationTypelbl.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.CertificationTypelbl.Location = New System.Drawing.Point(5, 15)
		Me.CertificationTypelbl.Name = "CertificationTypelbl"
		Me.CertificationTypelbl.Size = New System.Drawing.Size(120, 20)
		Me.CertificationTypelbl.TabIndex = 0
		Me.CertificationTypelbl.Text = "Certification Name"
		Me.CertificationTypelbl.TextAlign = System.Drawing.ContentAlignment.MiddleRight
		'
		'CertificationType
		'
		Me.CertificationType.AssociatedLabel = Me.CertificationTypelbl
		Me.CertificationType.BackColor = System.Drawing.Color.LightYellow
		Me.CertificationType.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
		Me.CertificationType.ErrProvider = Nothing
		Me.CertificationType.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.CertificationType.FormatPattern = Nothing
		Me.CertificationType.isMandatory = True
		Me.CertificationType.Location = New System.Drawing.Point(135, 15)
		Me.CertificationType.MaxLength = 255
		Me.CertificationType.MaxValue = Nothing
		Me.CertificationType.MinValue = Nothing
		Me.CertificationType.Name = "CertificationType"
		Me.CertificationType.Size = New System.Drawing.Size(406, 21)
		Me.CertificationType.TabIndex = 0
		'
		'DiplomaSuperTypeIdlbl
		'
		Me.DiplomaSuperTypeIdlbl.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.DiplomaSuperTypeIdlbl.Location = New System.Drawing.Point(25, 43)
		Me.DiplomaSuperTypeIdlbl.Name = "DiplomaSuperTypeIdlbl"
		Me.DiplomaSuperTypeIdlbl.Size = New System.Drawing.Size(100, 20)
		Me.DiplomaSuperTypeIdlbl.TabIndex = 11
		Me.DiplomaSuperTypeIdlbl.Text = "Diploma Type"
		Me.DiplomaSuperTypeIdlbl.TextAlign = System.Drawing.ContentAlignment.MiddleRight
		'
		'DiplomaSuperTypeId
		'
		Me.DiplomaSuperTypeId.AssociatedLabel = Me.DiplomaSuperTypeIdlbl
		Me.DiplomaSuperTypeId.BackColor = System.Drawing.Color.LightYellow
		Me.DiplomaSuperTypeId.ErrProvider = Nothing
		Me.DiplomaSuperTypeId.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.DiplomaSuperTypeId.isMandatory = True
		Me.DiplomaSuperTypeId.Location = New System.Drawing.Point(135, 42)
		Me.DiplomaSuperTypeId.MaxLength = 255
		Me.DiplomaSuperTypeId.MaxValue = Nothing
		Me.DiplomaSuperTypeId.MinValue = Nothing
		Me.DiplomaSuperTypeId.Name = "DiplomaSuperTypeId"
		Me.DiplomaSuperTypeId.Size = New System.Drawing.Size(345, 21)
		Me.DiplomaSuperTypeId.TabIndex = 10
		'
		'ucCertificationTypeDetails
		'
		Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
		Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
		Me.AutoValidate = System.Windows.Forms.AutoValidate.EnableAllowFocusChange
		Me.Controls.Add(Me.DiplomaSuperTypeIdlbl)
		Me.Controls.Add(Me.DiplomaSuperTypeId)
		Me.Controls.Add(Me.CertificationTypelbl)
		Me.Controls.Add(Me.CertificationType)
		Me.Name = "ucCertificationTypeDetails"
		Me.Size = New System.Drawing.Size(996, 485)
		CType(Me.ErrProvider, System.ComponentModel.ISupportInitialize).EndInit()
		Me.ResumeLayout(False)
		Me.PerformLayout()

	End Sub


	Friend WithEvents CertificationTypelbl As System.Windows.Forms.Label
	Friend WithEvents CertificationType As CGTextBox


#End Region

#Region "Properties"

#End Region

#Region "Methods"

	''' <summary>
	''' Fills the controls on the screen from data in the object
	''' </summary>
	''' <remarks></remarks>
	Public Sub _loadData() Handles Me.evLoadObjectData

		Dim mo As CertificationType = DirectCast(Me.ModelObject(), CertificationType)
		Me.CertificationType.value = mo.CertificationType
		Me.DiplomaSuperTypeId.Value = mo.DiplomaSuperTypeId

	End Sub

	''' <summary>
	''' Loads the object from the database and then sets the proeperties 
	''' of the object from values on the controls
	''' </summary>
	''' <remarks></remarks>
	Public Sub _loadToObject() Handles Me.evLoadToObject

		Dim mo As CertificationType = DirectCast(Me.ModelObject, CertificationType)
		mo.setCertificationType(Me.CertificationType.text)
		mo.setDiplomaSuperTypeId(Me.DiplomaSuperTypeId.StrValue)

	End Sub


	Public Sub _InitializeControl() Handles Me.InitializeControl

		If Me.isInitialized = False Then
			'setup datasources here
			Me.DiplomaSuperTypeId.DataSource = DiplomaSuperTypeDataUtils.findList
			Me.DiplomaSuperTypeId.ValueMember = "DiplomaSuperTypeId"
			Me.DiplomaSuperTypeId.DisplayMember = "DiplomaSuperTypeCode"
			Me.isInitialized = True
		End If

	End Sub

#End Region


End Class


